function [n2,ValueDate1]=getDate(VecValue,n2)

TestTemp=0;
TestTemp2=0;
TestTemp4=0;
TestTemp6=0;
ValueDate1='';
ValueTemp=size(VecValue,1)-6;
while n2<=ValueTemp&&TestTemp==0
    VecValueTemp2=VecValue(n2:n2+5,1);
    if strcmp(char(VecValueTemp2'),'<Year>')==1
        n4=n2+6;
        while n2<=ValueTemp&&TestTemp2==0
            VecValueTemp3=VecValue(n2:n2+6,1);
            if strcmp(char(VecValueTemp3'),'</Year>')==1
                n5=n2-1;
                TestTemp2=1;
                ValueDate1=['/Y_/' char(VecValue(n4:n5,1)') '/Y_/' ValueDate1];
            else
                if strcmp(char(VecValue(n2:n2+9,1)'),'</PubDate>')==1
                    n5=n2-1;
                    TestTemp2=1;
                    ValueDate1=['/Y_/' char(VecValue(n4:n5,1)') '/Y_/' ValueDate1];
                    TestTemp=1;
                end
            end
            n2=n2+1;
        end
        n2=n2-1;
    end
    VecValueTemp3=VecValue(n2:n2+6,1);
    if strcmp(char(VecValueTemp3'),'<Month>')==1
        n4=n2+7;
        while n2<=ValueTemp&&TestTemp4==0
            VecValueTemp3=VecValue(n2:n2+7,1);
            if strcmp(char(VecValueTemp3'),'</Month>')==1
                n5=n2-1;
                TestTemp4=1;
                ValueDate1=['/M_/' char(VecValue(n4:n5,1)') '/M_/' ValueDate1];
            else
                if strcmp(char(VecValue(n2:n2+9,1)'),'</PubDate>')==1
                    n5=n2-1;
                    TestTemp4=1;
                    ValueDate1=['/M_/' char(VecValue(n4:n5,1)') '/M_/' ValueDate1];
                    TestTemp=1;
                end
            end
            n2=n2+1;
        end
        n2=n2-1;
    end
    VecValueTemp3=VecValue(n2:n2+4,1);
    if strcmp(char(VecValueTemp3'),'<Day>')==1
        n4=n2+5;
        while n2<=ValueTemp&&TestTemp6==0
            VecValueTemp3=VecValue(n2:n2+5,1);
            if strcmp(char(VecValueTemp3'),'</Day>')==1
                n5=n2-1;
                TestTemp6=1;
                ValueDate1=['/D_/' char(VecValue(n4:n5,1)') '/D_/' ValueDate1];
            else
                if strcmp(char(VecValue(n2:n2+9,1)'),'</PubDate>')==1
                    n5=n2-1;
                    TestTemp6=1;
                    ValueDate1=['/D_/' char(VecValue(n4:n5,1)') '/D_/' ValueDate1];
                    TestTemp=1;
                end
            end
            n2=n2+1;
        end
        n2=n2-1;
    end
    if strcmp(char(VecValue(n2:n2+9,1)'),'</PubDate>')==1
        TestTemp=1;
    end
    n2=n2+1;
end